home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / win-fort.zip / SUP.FOR < prev    next >
Text File  |  1991-11-12  |  1KB  |  46 lines
  1.       INCLUDE 'WINDOWS.FI'
  2. C
  3. C Author       : Kevin B Black
  4. C Date written : 12-Nov-1991
  5. C Abstract     :
  6. C
  7. C ADDITIONAL FUNCTIONS FOR MICROSOFT WINDOWS 3.0 WITH MS FORTRAN
  8. C
  9. C These are functions which aren't actual windows functions, but are
  10. C created by making definitions in the Windows header file for C
  11. C programmers. There is no Fortran equivalent of this, nor can it be
  12. C mimicked using the Interface statement (when additional or different
  13. C arguments are required). For example :
  14. C
  15. C #define LockData(dummy)     LockSegment(0xFFFF)
  16. C
  17.       INTEGER*2 FUNCTION GlobalDiscard(H)
  18.       IMPLICIT NONE
  19.       INTEGER*2 H
  20.       INCLUDE 'WINDOWS.FD'
  21.       GlobalDiscard=GlobalReAlloc(H,0,GMEM_MOVEABLE)
  22.       RETURN
  23.       END
  24. C
  25.       INTEGER*2 FUNCTION LockData()
  26.       IMPLICIT NONE
  27.       INCLUDE 'WINDOWS.FD'
  28.       LockData=LockSegment(#FFFF)
  29.       RETURN
  30.       END
  31. C
  32.       INTEGER*2 FUNCTION UnlockData()
  33.       IMPLICIT NONE
  34.       INCLUDE 'WINDOWS.FD'
  35.       UnlockData=UnlockSegment(#FFFF)
  36.       RETURN
  37.       END
  38. C
  39.       INTEGER*2 FUNCTION LocalDiscard(H)
  40.       IMPLICIT NONE
  41.       INTEGER*2 H
  42.       INCLUDE 'WINDOWS.FD'
  43.       LocalDiscard=LocalReAlloc(H,0,LMEM_MOVEABLE)
  44.       RETURN
  45.       END
  46.